
Compile Time:   DATA ( -- )
Execution Time: DATA ( -- addr count )
E.g.
When compiling:
  DATA 5 9 8 7 6 5
  Compiles 5 values (9 8 7 6 & 5) to memory
At runtime:
  DATA 5 9 8 7 6 5 when encountered, will push the start address (the address of 9) 
  to the stack, and the count (5)
  
: DATA
  WORD NUMBER DROP DUP [COMPILE] LITERAL
  HERE 8 + [COMPILE] LITERAL
  COMPILE SWAP COMPILE EXIT
  0 DO WORD NUMBER DROP , LOOP ; IMMEDIATE
  
: FRED DATA 59 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 ;

: SPDATA DATA 85
604A$ 274D$ 2CA2$ 76A8$ 9211$ 55A9$ 5AA7$ 68DE$ CDB5$ 1C9F$
BA7A$ 75E3$ AC7C$ EAE2$ 249D$ BAEA$ 698A$ 4935$ F554$ ABEF$
3AD5$ CC6C$ 8F7E$ EA52$ 1396$ E380$ C0D4$ 14A0$ A4AB$ 03A2$
0831$ 4062$ 290A$ C85C$ 79E5$ C966$ A469$ A353$ C6A6$ 6DBA$
654E$ 959A$ B5EB$ 443D$ 559A$ D2DA$ 23F9$ D479$ 4A6B$ B794$
D3A4$ AA63$ 9996$ 4E53$ AA94$ 6658$ 5A5D$ E95A$ 9A11$ F90C$
6568$ 5B56$ 5C01$ 8488$ 4100$ EDC9$ 0900$ 2C2B$ 01B8$ 2216$
4076$ 0404$ C08A$ 5100$ D923$ 4203$ 1A2B$ 4DC0$ 002E$ 0608$
C459$ 0041$ 8510$ 0068$ 6578$ ;

: TV 60$ 9400$ C! SPDATA 2* 0 DO DUP C@ DUP $. 9400$ C! 1+ LOOP DROP
     FF$ 9400$ C! ;

>604a,>274d,>2ca2,>76a8,>9211,>55a9,>5aa7,>68de,>cdb5,>1c9f,
>ba7a,>75e3,>ac7c,>eae2,>249d,>baea,>698a,>4935,>f554,>abef,
>3ad5,>cc6c,>8f7e,>ea52,>1396,>e380,>c0d4,>14a0,>a4ab,>03a2,
>0831,>4062,>290a,>c85c,>79e5,>c966,>a469,>a353,>c6a6,>6dba,
>654e,>959a,>b5eb,>443d,>559a,>d2da,>23f9,>d479,>4a6b,>b794,
>d3a4,>aa63,>9996,>4e53,>aa94,>6658,>5a5d,>e95a,>9a11,>f90c,
>6568,>5b56,>5c01,>8488,>4100,>edc9,>0900,>2c2b,>01b8,>2216,
>4076,>0404,>c08a,>5100,>d923,>4203,>1a2b,>4dc0,>002e,>0608,
>c459,>0041,>8510,>0068,>6578
